Software of the Month Club (Business) 1997 July/Software of the Month Club - Business (Volume 239) (July 1997).iso/pc/code/debug/memmon.dir/00070.ls

Text File | 1995-02-15 | 650 b | 26 lines

on mouseDown
  global gTempo
  set indicator to the clickOn
  set theTop to the top of sprite (indicator - 1)
  set theBottom to the bottom of sprite (indicator - 1)
  repeat while the mouseDown
    if the mouseV < theTop then
      set the locV of sprite indicator to theTop
    else
      if the mouseV >= theBottom then
        set the locV of sprite indicator to theBottom - 1
      else
        set the locV of sprite indicator to the mouseV
      end if
    end if
    updateStage()
  end repeat
  set gTempo to 15 - ((the top of sprite indicator + 3 - theTop) / 3)
  tell window "Memmon"
    puppetTempo(gTempo)
  end tell
end

on mouseUp
end